﻿Public Class YesCancelPanel
    Public Event OK_Clicked()
    Public Event NO_Clicked()
    Property OK_Text() As String
        Get
            Return Ok_Button.ButtonText
        End Get
        Set(ByVal value As String)
            Ok_Button.ButtonText = value
        End Set
    End Property
    Property NO_Text() As String
        Get
            Return Cancel_Button.ButtonText
        End Get
        Set(ByVal value As String)
            Cancel_Button.ButtonText = value
        End Set
    End Property
    Private Sub Ok_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok_Button.Click
        RaiseEvent OK_Clicked()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        RaiseEvent NO_Clicked()
    End Sub
End Class
